r82vec_sort_heap_index_a Subroutine

subroutine r82vec_sort_heap_index_a(n, a, indx)

************80

R82VEC_SORT_HEAP_INDEX_A does an indexed heap ascending sort of an R82VEC.

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=4)				::	n
real(kind=8)				::	a(2,n)
integer(kind=4)				::	indx(n)

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=8),	public		::	aval(2)
integer(kind=4),	public		::	i
integer(kind=4),	public		::	indxt
integer(kind=4),	public		::	ir
integer(kind=4),	public		::	j
integer(kind=4),	public		::	l